﻿Public Class RjClsVoucher

    Private m_Entry As Integer '分录  '0
    Private m_Month As Integer '月份  '1
    Private m_Date As Integer '日期  '2
    Private m_VoucherGroup As String '凭证类别  '3
    Private m_VoucherNumber As Integer '凭证号  '4
    Private m_Exp As String '摘要  '5
    Private m_AcctCode As String '科目  '6
    Private m_AcctName As String '科目名称  '7
    Private m_Debit As Decimal '借  '8
    Private m_Credit As Decimal '贷  '9
    Private m_ProjectTrans As String '核算  '10
    Private m_ProjectSepcial As String '专项  '11
    Private m_Quantity As Single '数量  '12
    Private m_Currency As Decimal '外币  '13
    Private m_Checked As Boolean '对帐  '14
    Private m_Posted As Boolean '记账  '15
    Private m_ProjectCode As String '项目编码  '16
    Private m_ProjectName As String '项目  '17
    Private m_Maker As String '制单  '18
    Private m_Checker As String '复核  '19
    Private m_Poster As String '记账人  '20
    Private m_K1 As Boolean 'k1  '21
    Private m_Attachment As Integer '附件数  '22

    Public Property Entry As Integer
        Get
            Return m_Entry
        End Get
        Set(value As Integer)
            m_Entry = value
        End Set
    End Property

    Public Property Month As Integer
        Get
            Return m_Month
        End Get
        Set(value As Integer)
            m_Month = value
        End Set
    End Property

    Public Property [Date] As Integer
        Get
            Return m_Date
        End Get
        Set(value As Integer)
            m_Date = value
        End Set
    End Property

    Public Property VoucherGroup As String
        Get
            Return m_VoucherGroup
        End Get
        Set(value As String)
            m_VoucherGroup = value
        End Set
    End Property

    Public Property VoucherNumber As Integer
        Get
            Return m_VoucherNumber
        End Get
        Set(value As Integer)
            m_VoucherNumber = value
        End Set
    End Property

    Public Property Exp As String
        Get
            Return m_Exp
        End Get
        Set(value As String)
            m_Exp = value
        End Set
    End Property

    Public Property AcctCode As String
        Get
            Return m_AcctCode
        End Get
        Set(value As String)
            m_AcctCode = value
        End Set
    End Property

    Public Property AcctName As String
        Get
            Return m_AcctName
        End Get
        Set(value As String)
            m_AcctName = value
        End Set
    End Property

    Public Property Debit As Decimal
        Get
            Return m_Debit
        End Get
        Set(value As Decimal)
            m_Debit = value
        End Set
    End Property

    Public Property Credit As Decimal
        Get
            Return m_Credit
        End Get
        Set(value As Decimal)
            m_Credit = value
        End Set
    End Property

    Public Property ProjectTrans As String
        Get
            Return m_ProjectTrans
        End Get
        Set(value As String)
            m_ProjectTrans = value
        End Set
    End Property

    Public Property ProjectSepcial As String
        Get
            Return m_ProjectSepcial
        End Get
        Set(value As String)
            m_ProjectSepcial = value
        End Set
    End Property

    Public Property Quantity As Single
        Get
            Return m_Quantity
        End Get
        Set(value As Single)
            m_Quantity = value
        End Set
    End Property

    Public Property Currency As Decimal
        Get
            Return m_Currency
        End Get
        Set(value As Decimal)
            m_Currency = value
        End Set
    End Property

    Public Property Checked As Boolean
        Get
            Return m_Checked
        End Get
        Set(value As Boolean)
            m_Checked = value
        End Set
    End Property

    Public Property Posted As Boolean
        Get
            Return m_Posted
        End Get
        Set(value As Boolean)
            m_Posted = value
        End Set
    End Property

    Public Property ProjectCode As String
        Get
            Return m_ProjectCode
        End Get
        Set(value As String)
            m_ProjectCode = value
        End Set
    End Property

    Public Property ProjectName As String
        Get
            Return m_ProjectName
        End Get
        Set(value As String)
            m_ProjectName = value
        End Set
    End Property

    Public Property Maker As String
        Get
            Return m_Maker
        End Get
        Set(value As String)
            m_Maker = value
        End Set
    End Property

    Public Property Checker As String
        Get
            Return m_Checker
        End Get
        Set(value As String)
            m_Checker = value
        End Set
    End Property

    Public Property Poster As String
        Get
            Return m_Poster
        End Get
        Set(value As String)
            m_Poster = value
        End Set
    End Property

    Public Property K1 As Boolean
        Get
            Return m_K1
        End Get
        Set(value As Boolean)
            m_K1 = value
        End Set
    End Property

    Public Property Attachment As Integer
        Get
            Return m_Attachment
        End Get
        Set(value As Integer)
            m_Attachment = value
        End Set
    End Property
End Class
